home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
amica paint load
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
5 lines
100 IFATHEN120:DATA1000,7000,8000,A900,9000,C000,P1,P2,P3,P4,INPT
110 POKE56,48:CLR:DIMLO$(11):FORT=1TO11:READLO$(T):NEXT:IF0=PEEK(653)THENSYS2240
120 A=A+1:IFA<12THENLOAD"A.PAINT "+LO$(A),8,1
130 SYS64789:POKE157,0:SYS4096